(locate): Output from shell-command should go in the current buffer

rather than *Shell Command Output*.

diff --git a/lisp/locate.el b/lisp/locate.el
index e8dafa79048ba7c1db481c5fdee4e65697f50aab..ef7b05ee50988f607823fd6dba565b2b9ec79fb6 100644 (file)
--- a/lisp/locate.el
+++ b/lisp/locate.el
@@ -310,7 +310,7 @@ the docstring of that function for its meaning."
         (set (make-local-variable 'locate-current-filter) filter)
 
         (if run-locate-command
-            (shell-command search-string)
+            (shell-command search-string (current-buffer))
           (apply 'call-process locate-cmd nil t nil locate-cmd-args))
 
         (and filter